home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / COCKTAIL.DIR / SShow_29_INIT slideShow X.ls < prev    next >
Encoding:
Text File  |  1997-03-05  |  2.0 KB  |  43 lines
  1. on exitFrame
  2.   global gRecNumber, gAutoMode, gCurrentSlideShow, gCurrentZone, gPictureSprite, gElevatorSprite, gScrollBarSprite, gSlideListCstNum, gTitleCstNum, gFirstPictureCstNum, gDelayTime, gPictNumInOrder, gLinesNumber
  3.   set the visible of sprite 17 to 1
  4.   set the visible of sprite 3 to 1
  5.   set the visible of sprite 4 to 1
  6.   set the visible of sprite 6 to 1
  7.   repeat with i = 21 to 24
  8.     set the visible of sprite i to 0
  9.   end repeat
  10.   set gLinesNumber to 147
  11.   set gDelayTime to 180
  12.   set gSlideListCstNum to the number of member "cstFullNames"
  13.   set gTitleCstNum to the number of member "cstSlideTitle" of castLib "sshow"
  14.   set gFirstPictureCstNum to the number of member 1 of castLib "slidenw"
  15.   startTimer()
  16.   unloadMember()
  17.   set gAutoMode to 0
  18.   set the locH of sprite gElevatorSprite to the left of sprite gScrollBarSprite
  19.   set the itemDelimiter to ","
  20.   set gPictNumInOrder to value(item gCurrentZone of the text of member "order" of castLib "sshow")
  21.   set the itemDelimiter to ","
  22.   set recLine to line gPictNumInOrder of the text of member gSlideListCstNum of castLib "sshow"
  23.   set gRecNumber to value(word 1 of item 2 of recLine)
  24.   delete word 1 of item 2 of recLine
  25.   set the text of member "cstType" of castLib "sshow" to item 4 of recLine
  26.   set the text of member "cstBase" of castLib "sshow" to item 6 of recLine
  27.   if item 5 of recLine = "long" then
  28.     set tempNum to the number of member 9 of castLib "sshow"
  29.   end if
  30.   if item 5 of recLine = "short" then
  31.     set tempNum to the number of member 10 of castLib "sshow"
  32.   end if
  33.   if item 5 of recLine = "shot" then
  34.     set tempNum to the number of member 11 of castLib "sshow"
  35.   end if
  36.   if item 5 of recLine = "hot" then
  37.     set tempNum to the number of member 11 of castLib "sshow"
  38.   end if
  39.   set the castNum of sprite 7 to tempNum
  40.   set the text of member gTitleCstNum of castLib "sshow" to item 1 of recLine
  41.   set the castNum of sprite gPictureSprite to member (gFirstPictureCstNum + gRecNumber - 1) of castLib "slidenw"
  42. end
  43.